home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / FINDSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  669 b   |  15 lines
  1. { ----------------------------------------------
  2.   FINDSTR searches for the first occurrence of S
  3.   in video memory beginning from X,Y.
  4.   ---------------------------------------------- }
  5. Procedure FindStr ( X : ColumnType;
  6.                     Y : RowType;
  7.                     S : AnyString;
  8.                   Off : Integer;
  9.             var Ecode : Integer ); external 'FindStr.com';
  10. {
  11.            Ecode = 0 if S is found on screen
  12.            Ecode = 1 if S not found
  13.             if N = 0, cursor placed at S[1]
  14.             if N < 0, cursor placed at Nth position from left end of S
  15.             if N > 0, cursor placed at Nth position from right end of S }